unit oPlatform;

interface

uses oLogicalEntity, XMLIntf, oEntityTypeConstants,  oIStoreable;

type
  TPlatform = class(TLogicalEntity)
    public
      destructor Destroy; override;
      procedure save(paKam: IXMLNode;paKtory: Integer);
      function vypis:String;
      procedure SaveToXML(var paNode : Ixmlnode); override;
      procedure LoadFromXML(paNode : IXMLNode); override;
      constructor Create(paName : string; paId : integer); overload;
      constructor Create; overload;
  end;

implementation

uses SysUtils;

{ TPlosina }

constructor TPlatform.Create;
begin
  inherited;
  TypeLogic := ET_PLATFORM_TYPE;
end;

constructor TPlatform.Create(paName: string; paId: integer);
begin
  Create;
  inherited Create(paName, paId);
end;

destructor TPlatform.destroy;
begin

  inherited;
end;

procedure TPlatform.LoadFromXML(paNode: IXMLNode);
begin
  inherited LoadFromXML(paNode.ChildNodes['log_entity']);
end;

procedure TPlatform.save(paKam: IXMLNode; paKtory: Integer);
var temp: IXMLNode;
begin
end;

procedure TPlatform.SaveToXML(var paNode: Ixmlnode);
var
  n : IXMLNode;
begin
  n := paNode.AddChild('platform');
  inherited SaveToXML(n);
end;

function TPlatform.vypis: String;
begin
  result := '';
end;

end.
